home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / utilities / mapeditor.lha / mapeditor / arexx / MapLoader.bb2.bak next >
Unknown  |  1995-03-01  |  2.0 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% gt2 Kopftext: '; Example arexx program for LES Map Editor' default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 20 45 78 61 6d 70 6c | 65 20 61 72 65 78 78 20 |; Exampl|e arexx |
|00000010| 70 72 6f 67 72 61 6d 20 | 66 6f 72 20 4c 45 53 20 |program |for LES |
|00000020| 4d 61 70 20 45 64 69 74 | 6f 72 00 3b 20 54 68 69 |Map Edit|or.; Thi|
|00000030| 73 20 70 72 6f 67 72 61 | 6d 20 73 69 6d 70 6c 79 |s progra|m simply|
|00000040| 20 73 74 61 72 74 73 20 | 69 74 73 65 6c 66 20 75 | starts |itself u|
|00000050| 70 20 61 6e 64 20 72 65 | 63 65 69 76 65 73 20 6d |p and re|ceives m|
|00000060| 65 73 73 61 67 65 73 20 | 66 72 6f 6d 20 74 68 65 |essages |from the|
|00000070| 00 3b 20 4d 61 70 20 45 | 64 69 74 6f 72 2e 20 20 |.; Map E|ditor.  |
|00000080| 59 6f 75 20 77 69 6c 6c | 20 6e 65 65 64 20 74 6f |You will| need to|
|00000090| 20 72 75 6e 20 74 68 65 | 20 4d 61 70 20 45 64 69 | run the| Map Edi|
|000000a0| 74 6f 72 20 74 6f 20 71 | 75 69 74 20 74 68 69 73 |tor to q|uit this|
|000000b0| 20 65 78 61 6d 70 6c 65 | 00 3b 20 70 72 6f 67 72 | example|.; progr|
|000000c0| 61 6d 2e 00 00 3b 20 50 | 6c 65 61 73 65 20 73 65 |am...; P|lease se|
|000000d0| 65 20 74 68 65 20 41 6d | 69 67 61 47 75 69 64 65 |e the Am|igaGuide|
|000000e0| 20 66 69 6c 65 20 66 6f | 72 20 6d 6f 72 65 20 69 | file fo|r more i|
|000000f0| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 61 62 6f 75 74 |nformati|on about|
|00000100| 20 63 6f 6d 6d 75 6e 69 | 63 61 74 69 6e 67 00 3b | communi|cating.;|
|00000110| 20 76 69 61 20 61 72 65 | 78 78 2e 00 00 3b 2a 2a | via are|xx...;**|
|00000120| 2a 20 4d 61 6b 65 20 73 | 75 72 65 20 79 6f 75 20 |* Make s|ure you |
|00000130| 68 61 76 65 20 74 68 65 | 20 52 49 41 52 65 78 78 |have the| RIARexx|
|00000140| 20 6c 69 62 72 61 72 79 | 20 69 6e 73 74 61 6c 6c | library| install|
|00000150| 65 64 20 69 6e 20 79 6f | 75 72 20 64 65 66 6c 69 |ed in yo|ur defli|
|00000160| 62 73 20 66 69 6c 65 00 | 3b 20 20 20 20 43 6f 70 |bs file.|;    Cop|
|00000170| 79 20 74 68 65 20 52 49 | 41 52 65 78 78 2e 6f 62 |y the RI|ARexx.ob|
|00000180| 6a 20 66 69 6c 65 20 74 | 6f 20 42 6c 69 74 7a 6c |j file t|o Blitzl|
|00000190| 69 62 73 3a 55 73 65 72 | 6c 69 62 73 2f 20 74 68 |ibs:User|libs/ th|
|000001a0| 65 6e 20 72 75 6e 20 4d | 61 6b 65 44 65 66 6c 69 |en run M|akeDefli|
|000001b0| 62 73 00 00 3b 53 6f 20 | 77 65 20 63 61 6e 20 73 |bs..;So |we can s|
|000001c0| 74 61 72 74 20 75 70 20 | 66 72 6f 6d 20 77 6f 72 |tart up |from wor|
|000001d0| 6b 62 65 6e 63 68 20 69 | 66 20 77 65 20 77 61 6e |kbench i|f we wan|
|000001e0| 74 20 74 6f 00 80 c3 00 | 00 3b 52 45 53 45 52 56 |t to....|.;RESERV|
|000001f0| 45 44 20 42 59 20 46 55 | 4e 43 54 49 4f 4e 53 00 |ED BY FU|NCTIONS.|
|00000200| 70 6f 72 74 2e 6c 3d 30 | 3a 70 6f 72 74 6e 61 6d |port.l=0|:portnam|
|00000210| 65 24 3d 22 4d 61 70 4c | 6f 61 64 65 72 22 00 00 |e$="MapL|oader"..|
|00000220| 3b 4f 75 72 20 73 74 72 | 75 63 74 75 72 65 20 66 |;Our str|ucture f|
|00000230| 6f 72 20 70 61 73 73 69 | 6e 67 20 64 61 74 61 20 |or passi|ng data |
|00000240| 74 6f 20 74 68 65 20 6d | 61 70 20 65 64 69 74 6f |to the m|ap edito|
|00000250| 72 00 80 01 2e 20 6d 61 | 70 65 64 69 74 6f 72 6d |r.... ma|peditorm|
|00000260| 73 67 00 20 20 77 69 64 | 74 68 2e 77 00 20 20 68 |sg.  wid|th.w.  h|
|00000270| 65 69 67 68 74 2e 77 00 | 20 20 62 77 69 64 74 68 |eight.w.|  bwidth|
|00000280| 2e 77 00 20 20 62 68 65 | 69 67 68 74 2e 77 00 20 |.w.  bhe|ight.w. |
|00000290| 20 64 61 74 61 74 79 70 | 65 2e 62 00 20 20 6d 61 | datatyp|e.b.  ma|
|000002a0| 70 6e 75 6c 6c 2e 62 00 | 20 20 61 64 64 72 65 73 |pnull.b.|  addres|
|000002b0| 73 2e 6c 00 80 02 20 80 | 01 00 00 80 33 2e 6d 61 |s.l... .|....3.ma|
|000002c0| 70 65 64 69 74 6f 72 6d | 73 67 20 6d 79 6d 73 67 |peditorm|sg mymsg|
|000002d0| 00 00 3b 53 65 6e 64 20 | 61 20 63 6f 6d 6d 61 6e |..;Send |a comman|
|000002e0| 64 20 74 6f 20 61 6e 20 | 41 52 45 58 58 20 70 6f |d to an |AREXX po|
|000002f0| 72 74 2e 2e 2e 68 6f 73 | 74 24 20 69 73 20 74 68 |rt...hos|t$ is th|
|00000300| 65 20 6e 61 6d 65 20 6f | 66 20 74 68 65 20 61 72 |e name o|f the ar|
|00000310| 65 78 78 20 70 6f 72 74 | 00 3b 20 20 63 6f 6d 6d |exx port|.;  comm|
|00000320| 61 6e 64 24 20 69 73 20 | 74 68 65 20 63 6f 6d 6d |and$ is |the comm|
|00000330| 61 6e 64 20 74 6f 20 73 | 65 6e 64 2e 2e 2e 72 65 |and to s|end...re|
|00000340| 74 75 72 6e 73 20 2d 31 | 20 6f 72 20 30 00 3b 20 |turns -1| or 0.; |
|00000350| 72 65 70 6c 79 24 20 68 | 6f 6c 64 73 20 74 68 65 |reply$ h|olds the|
|00000360| 20 72 65 74 75 72 6e 20 | 73 74 72 69 6e 67 20 66 | return |string f|
|00000370| 72 6f 6d 20 74 68 65 20 | 68 6f 73 74 00 80 09 20 |rom the |host... |
|00000380| 44 6f 53 65 6e 64 52 65 | 78 78 4d 65 73 73 61 67 |DoSendRe|xxMessag|
|00000390| 65 7b 68 6f 73 74 24 2c | 63 6f 6d 6d 61 6e 64 24 |e{host$,|command$|
|000003a0| 7d 00 20 20 80 15 20 70 | 6f 72 74 2c 70 6f 72 74 |}.  .. p|ort,port|
|000003b0| 6e 61 6d 65 24 2c 72 65 | 70 6c 79 24 00 00 20 20 |name$,re|ply$..  |
|000003c0| 80 0b 20 70 6f 72 74 3d | 30 20 80 21 20 80 09 20 |.. port=|0 .! .. |
|000003d0| 80 07 20 30 00 20 20 80 | 0b 20 fe b7 28 68 6f 73 |.. 0.  .|. ..(hos|
|000003e0| 74 24 29 3d 30 20 80 21 | 20 80 09 20 80 07 20 30 |t$)=0 .!| .. .. 0|
|000003f0| 00 00 20 20 6d 73 67 2e | 6c 3d c2 82 00 20 20 c2 |..  msg.|l=...  .|
|00000400| 83 20 6d 73 67 2c 30 2c | 70 6f 72 74 6e 61 6d 65 |. msg,0,|portname|
|00000410| 24 00 20 20 c2 83 20 6d | 73 67 2c 31 2c 63 6f 6d |$.  .. m|sg,1,com|
|00000420| 6d 61 6e 64 24 00 20 20 | 72 65 70 6c 79 24 3d c2 |mand$.  |reply$=.|
|00000430| 8f 28 68 6f 73 74 24 2c | 6d 73 67 29 00 20 20 c2 |.(host$,|msg).  .|
|00000440| 86 20 6d 73 67 00 00 20 | 20 80 09 20 80 07 20 2d |. msg.. | .. .. -|
|00000450| 31 00 80 02 20 80 09 00 | 00 3b 3d 3d 3d 3d 3d 3d |1... ...|.;======|
|00000460| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000470| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000480| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000490| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 00 00 3b |========|=====..;|
|000004a0| 41 72 65 20 77 65 20 61 | 6c 72 65 61 64 79 20 72 |Are we a|lready r|
|000004b0| 75 6e 6e 69 6e 67 3f 20 | 20 49 66 20 79 65 73 20 |unning? | If yes |
|000004c0| 74 68 65 6e 20 71 75 69 | 74 00 61 2e 6c 3d fe b7 |then qui|t.a.l=..|
|000004d0| 28 70 6f 72 74 6e 61 6d | 65 24 29 00 80 0b 20 61 |(portnam|e$)... a|
|000004e0| 3c 3e 30 00 20 20 80 02 | 00 80 c0 00 00 3b 43 72 |<>0.  ..|.....;Cr|
|000004f0| 65 61 74 65 20 6f 75 72 | 20 6d 65 73 73 61 67 65 |eate our| message|
|00000500| 20 70 6f 72 74 00 70 6f | 72 74 2e 6c 3d c2 81 28 | port.po|rt.l=..(|
|00000510| 70 6f 72 74 6e 61 6d 65 | 24 29 00 80 0b 20 70 6f |portname|$)... po|
|00000520| 72 74 3d 30 20 80 21 20 | 80 02 00 00 3b 41 6e 64 |rt=0 .! |....;And|
|00000530| 20 73 69 67 6e 61 6c 20 | 74 68 65 20 4d 61 70 20 | signal |the Map |
|00000540| 45 64 69 74 6f 72 20 74 | 6f 20 73 65 6e 64 20 75 |Editor t|o send u|
|00000550| 73 20 61 20 6d 65 73 73 | 61 67 65 20 62 65 66 6f |s a mess|age befo|
|00000560| 72 65 20 69 74 20 71 75 | 69 74 73 00 72 65 74 2e |re it qu|its.ret.|
|00000570| 62 3d 44 6f 53 65 6e 64 | 52 65 78 78 4d 65 73 73 |b=DoSend|RexxMess|
|00000580| 61 67 65 7b 22 4d 61 70 | 45 64 69 74 6f 72 22 2c |age{"Map|Editor",|
|00000590| 22 4b 49 4c 4c 4d 45 22 | 7d 00 00 3b 4f 75 72 20 |"KILLME"|}..;Our |
|000005a0| 64 65 66 61 75 6c 74 20 | 64 69 72 65 63 74 6f 72 |default |director|
|000005b0| 79 20 74 6f 20 6c 6f 61 | 64 20 66 72 6f 6d 00 6d |y to loa|d from.m|
|000005c0| 61 70 66 69 6c 24 3d 22 | 22 00 00 3b 4c 6f 6f 70 |apfil$="|"..;Loop|
|000005d0| 20 75 6e 74 69 6c 20 77 | 65 20 68 61 76 65 20 74 | until w|e have t|
|000005e0| 6f 20 71 75 69 74 00 80 | bb 00 20 20 6d 73 67 2e |o quit..|..  msg.|
|000005f0| 6c 3d c2 8e 20 20 20 20 | 20 20 20 20 20 20 20 20 |l=..    |        |
|00000600| 20 20 20 20 20 20 20 20 | 3b 20 47 65 74 20 61 20 |        |; Get a |
|00000610| 6d 65 73 73 61 67 65 00 | 20 20 61 24 3d dc 98 28 |message.|  a$=..(|
|00000620| c2 8a 28 6d 73 67 2c 31 | 29 29 20 20 20 20 20 20 |..(msg,1|))      |
|00000630| 20 20 20 20 20 20 20 3b | 20 47 65 74 20 74 68 65 |       ;| Get the|
|00000640| 20 61 72 67 75 65 6d 65 | 6e 74 00 20 20 c2 87 20 | argueme|nt.  .. |
|00000650| 6d 73 67 2c 30 2c 22 22 | 20 20 20 20 20 20 20 20 |msg,0,""|        |
|00000660| 20 20 20 20 20 20 20 20 | 3b 20 4d 55 53 54 20 52 |        |; MUST R|
|00000670| 45 50 4c 59 21 00 00 3b | 59 6f 75 72 20 70 72 6f |EPLY!..;|Your pro|
|00000680| 67 72 61 6d 20 77 69 6c | 6c 20 70 72 6f 63 65 73 |gram wil|l proces|
|00000690| 73 20 74 68 65 20 63 6f | 6d 6d 61 6e 64 20 68 65 |s the co|mmand he|
|000006a0| 72 65 00 3b 49 74 20 73 | 68 6f 75 6c 64 20 72 65 |re.;It s|hould re|
|000006b0| 73 70 6f 6e 64 20 74 6f | 20 61 74 20 6c 65 61 73 |spond to| at leas|
|000006c0| 74 3a 20 4c 4f 41 44 2c | 53 41 56 45 2c 41 42 4f |t: LOAD,|SAVE,ABO|
|000006d0| 55 54 2c 51 55 49 54 00 | 00 20 20 80 0b 20 61 24 |UT,QUIT.|.  .. a$|
|000006e0| 3c 3e 22 45 58 49 54 22 | 00 20 20 20 20 72 65 74 |<>"EXIT"|.    ret|
|000006f0| 2e 62 3d 44 6f 53 65 6e | 64 52 65 78 78 4d 65 73 |.b=DoSen|dRexxMes|
|00000700| 73 61 67 65 7b 22 4d 61 | 70 45 64 69 74 6f 72 22 |sage{"Ma|pEditor"|
|00000710| 2c 22 52 45 51 55 45 53 | 54 20 22 2b dc 86 28 33 |,"REQUES|T "+..(3|
|00000720| 34 29 2b da 02 24 28 3f | 69 6e 66 6f 29 2b 22 7c |4)+..$(?|info)+"||
|00000730| 22 2b 61 24 2b dc 86 28 | 33 34 29 2b 22 20 5f 59 |"+a$+..(|34)+" _Y|
|00000740| 69 70 70 65 65 21 22 7d | 00 20 20 80 c0 00 80 bc |ippee!"}|.  .....|
|00000750| 20 61 24 3d 22 51 55 49 | 54 22 20 80 8a 20 61 24 | a$="QUI|T" .. a$|
|00000760| 3d 22 45 58 49 54 22 00 | 80 02 00 00 69 6e 66 6f |="EXIT".|....info|
|00000770| 3a 20 80 25 2e 62 20 22 | 45 78 61 6d 70 6c 65 20 |: .%.b "|Example |
|00000780| 4d 61 70 20 4c 6f 61 64 | 65 72 7c 42 79 20 53 74 |Map Load|er|By St|
|00000790| 65 70 68 65 6e 20 4d 63 | 4e 61 6d 61 72 61 7c 28 |ephen Mc|Namara|(|
|000007a0| 43 29 31 39 39 35 20 4c | 65 61 64 69 6e 67 20 45 |C)1995 L|eading E|
|000007b0| 64 67 65 20 53 6f 66 74 | 77 61 72 65 7c 20 7c 20 |dge Soft|ware| | |
|000007c0| 43 6f 6d 6d 61 6e 64 3a | 22 2c 30 00 dd 82 20 22 |Command:|",0... "|
|000007d0| 22 00 00                |                         |"..     |        |
+--------+-------------------------+-------------------------+--------+--------+